﻿'Params
'user (Required) : The user name
'limit (Optional) : Limit the number of tags returned
'api_key (Required) : A Last.fm API key.

'Auth
' This service does not require authentication. 

Public Class UserGetTopTags
	Inherits BaseRequest
	Dim user As String = ""
	Dim limit As String = ""

	Public xmlresponse As XDocument = Nothing

	Public Sub New(user As String, limit As String)
		Me.user = user
		Me.limit = limit

	End Sub

	Public Sub sendRequest()
        InitializeMembers("user.getTopTags")

		AddMember("user", user, True)
		AddMember("limit", limit, False)
		AddMember("api_key", My.Settings.api_key, False)

		xmlresponse = sendPOSTResponse()
	End Sub

	' Public Function getResponse() As AlbumGetInfoResponse
	'Dim response As New AlbumGetInfoResponse
	' response.album = New Album(xmlresponse.<lfm>.<album>.First)
	' Return response
	' End Function
End Class
